Language/OS - Multiplatform Resource Library/LANGUAGE OS.iso/lisp/eulisp/comp0_89.lha/Feel/Boot/Compiler/comp-utl.fm

Text File | 1993-07-16 | 7KB | 1,535 lines

(standard0 list-fns module-operators)
16
2505
(name read-error direct-superclasses direct-slot-descriptions metaclass-hypotheses direct-initargs cannot-open-path 0 "." 1 comp-utl "~a/~a" "path-open: cannot open stream for (~a) ~a" "~a.i" "~a.em" "~a.fm" "~a.bc" "~a.ebc" "~a.est" "~a.sc" ("./") output ("./") safe-write lambda-list (object stream) method-class argtype 2 methods domain signature function (path-open make-search-path fast-file-name get-module-stream interface-file-name get-expander sc-file-name encapsulated-static-file-name encapsulated-byte-file-name bytecode-file-name read-object write-object) ((strip (union (import standard0) (import list-fns) (import module-operators))) path-open make-search-path fast-file-name get-module-stream interface-file-name get-expander sc-file-name encapsulated-static-file-name encapsulated-byte-file-name bytecode-file-name read-object write-object) comp-utl)
36
0 0 17 0
5
0 0 0 0
3
0
31
0 0 220 0
17
1
36
0 0 27 0
5
0 0 0 0
4
0 0 36 0
46
1
(boot . make-installed-module)
34
2
36
0 0 150 0
5
0 0 0 0
8
3
4
0 0 34 0
5
0 0 37 0
3
0
39
8
0
5
0 0 38 0
3
0
39
28
1
5
0 0 39 0
3
0
39
28
1
5
0 0 40 0
3
0
39
28
1
5
0 0 41 0
3
0
39
28
1
5
0 0 42 0
3
0
39
28
1
5
0 0 43 0
3
0
39
28
1
5
0 0 44 0
3
0
39
28
1
5
0 0 45 0
3
0
39
28
1
5
0 0 46 0
3
0
39
28
1
5
0 0 47 0
3
0
39
28
1
5
0 0 48 0
3
0
39
28
1
17
1
1
(boot . install-local-bindings)
34
3
17
1
36
0 0 28 0
5
0 0 1 0
8
3
4
0 0 35 0
1
(boot . make-interface)
34
2
17
1
14
2
1
37
22
0
36
0 0 115 0
1
(init . make)
1
(errors . <condition-class>)
4
0 0 1 0
3
0
39
9
4
0 0 2 0
3
0
39
29
4
0 0 3 0
3
0
39
29
1
(errors . <condition>)
3
0
39
3
0
39
29
4
0 0 4 0
3
0
39
29
3
0
3
0
39
29
4
0 0 5 0
3
0
39
29
3
0
3
0
39
29
4
0 0 6 0
3
0
39
29
3
0
3
0
39
29
18
11
34
-2
7
0 0 49 0
36
0 0 115 0
1
(init . make)
1
(errors . <condition-class>)
4
0 0 1 0
3
0
39
9
4
0 0 7 0
3
0
39
29
4
0 0 3 0
3
0
39
29
1
(errors . <condition>)
3
0
39
3
0
39
29
4
0 0 4 0
3
0
39
29
3
0
3
0
39
29
4
0 0 5 0
3
0
39
29
3
0
3
0
39
29
4
0 0 6 0
3
0
39
29
3
0
3
0
39
29
18
11
34
-2
7
0 0 50 0
36
0 6 95 0
11
4
0 0 11 0
5
0 0 0 0
39
51
3
7
0 0 38 0
36
0 5 5 0
11
4
0 0 11 0
6
1
39
51
-3
7
0 0 37 0
36
0 4 210 0
11
4
0 0 11 0
6
2
39
51
2
7
0 0 42 0
36
0 4 159 0
11
4
0 0 11 0
6
3
39
51
1
7
0 0 41 0
36
0 4 89 0
11
4
0 0 11 0
6
4
39
51
1
7
0 0 40 0
36
0 4 38 0
11
4
0 0 11 0
6
5
39
51
1
7
0 0 39 0
36
0 3 243 0
11
4
0 0 11 0
6
6
39
51
1
7
0 0 46 0
36
0 3 192 0
11
4
0 0 11 0
6
7
39
51
1
7
0 0 45 0
36
0 3 141 0
11
4
0 0 11 0
6
8
39
51
1
7
0 0 44 0
36
0 3 90 0
11
4
0 0 11 0
6
9
39
51
1
7
0 0 43 0
36
0 2 59 0
11
4
0 0 11 0
6
10
39
51
-3
7
0 0 48 0
36
0 1 133 0
11
4
0 0 11 0
6
11
39
51
-3
7
0 0 47 0
36
0 0 158 0
1
(init . make)
1
(class-names . <generic-function>)
4
0 0 1 0
3
0
39
9
4
0 0 24 0
3
0
39
29
4
0 0 25 0
3
0
39
29
4
0 0 26 0
3
0
39
29
4
0 0 27 0
3
0
39
29
1
(class-names . <method>)
3
0
39
29
4
0 0 28 0
3
0
39
29
4
0 0 29 0
3
0
39
29
4
0 0 30 0
3
0
39
29
3
0
3
0
39
29
4
0 0 31 0
3
0
39
29
1
(class-names . <object>)
3
0
39
9
1
(class-names . <object>)
3
0
39
29
18
3
0
39
29
18
11
34
-2
7
0 0 51 0
36
0 0 142 0
1
(init . add-method)
4
0 0 51 0
36
0 0 120 0
1
(init . make)
36
0 0 22 0
1
(init . generic-method-class)
4
0 0 51 0
10
34
1
4
0 0 32 0
3
0
39
9
1
(class-names . <object>)
3
0
39
9
1
(class-names . <object>)
3
0
39
29
18
3
0
39
29
4
0 0 28 0
3
0
39
29
4
0 0 29 0
3
0
39
29
4
0 0 33 0
3
0
39
29
36
0 0 60 0
8
12
40
2
3
0
39
29
18
11
34
-2
11
33
2
18
36
0 0 25 0
11
4
0 0 11 0
6
12
39
51
1
7
0 0 52 0
18
3
1
37
18
1
(streams . read)
16
62
1
37
1
(streams1 . write)
12
12
3
0
39
11
14
7
3
9
13
4
34
-2
22
2
12
20
0
0
36
0 0 41 0
4
0 0 37 0
8
4
32
0 0 13 0
8
4
26
31
0 0 10 0
4
0 0 23 0
8
6
3
0
12
26
31
0 2 132 0
10
16
20
0
1
18
1
(calls . fn-unwind-protect)
36
0 0 43 0
12
40
0
36
0 0 15 0
8
4
40
0
14
7
3
62
2
37
1
(streams1 . close)
10
19
0
1
13
2
9
13
3
33
1
1
(init . apply)
1
(standard0 . make-instance)
11
19
0
0
36
0 0 22 0
4
0 0 52 0
8
6
19
0
1
3
0
31
0 0 181 1
3
0
39
12
14
6
4
9
13
5
34
-3
22
2
12
20
0
0
36
0 0 55 0
4
0 0 37 0
8
4
32
0 0 13 0
8
4
26
31
0 0 10 0
4
0 0 21 0
8
6
4
0 0 22 0
3
0
39
9
3
1
3
0
39
29
18
12
26
31
0 1 213 0
10
16
20
0
1
18
1
(calls . fn-unwind-protect)
36
0 0 43 0
12
40
0
36
0 0 15 0
8
4
40
0
14
7
3
62
2
37
1
(streams1 . close)
10
19
0
1
13
2
9
13
3
33
1
4
0 0 51 0
36
0 0 61 0
1
(list-fns . fold)
36
0 0 60 0
8
6
40
2
36
0 0 33 0
1
(init . class-slot-descriptions)
1
(classes . class-of)
8
9
19
0
0
62
1
10
33
1
3
0
12
34
3
11
19
0
1
11
14
5
3
9
13
4
33
2
36
0 0 19 0
1
(standard0 . slot-description-initargs)
8
5
10
34
1
26
36
0 0 41 0
1
(standard0 . slot-value)
8
4
19
0
0
36
0 0 19 0
1
(init . slot-description-name)
8
10
10
33
1
11
34
2
12
39
14
5
2
39
37
1
(extras0 . format)
3
0
4
0 0 20 0
8
4
3
0
39
12
14
7
4
9
13
5
34
-3
1
(extras0 . format)
3
0
4
0 0 19 0
8
4
3
0
39
12
14
7
4
9
13
5
34
-3
1
(extras0 . format)
3
0
4
0 0 18 0
8
4
3
0
39
12
14
7
4
9
13
5
34
-3
1
(extras0 . format)
3
0
4
0 0 17 0
8
4
3
0
39
12
14
7
4
9
13
5
34
-3
1
(extras0 . format)
3
0
4
0 0 16 0
8
4
3
0
39
12
14
7
4
9
13
5
34
-3
1
(streams1 . open)
36
0 0 29 0
1
(extras0 . format)
3
0
4
0 0 15 0
8
7
3
0
39
12
34
-3
3
0
11
14
6
3
9
13
4
34
-2
1
(extras0 . format)
3
0
4
0 0 14 0
8
4
3
0
39
12
14
7
4
9
13
5
34
-3
1
(module-operators . get-module)
12
62
1
1
(module-operators . dynamic-access)
10
8
4
14
7
3
62
2
37
22
3
12
20
0
0
11
20
0
1
10
20
0
2
1
(calls . simple-call/cc)
36
0 0 14 0
12
40
1
14
6
2
62
1
37
22
1
10
20
0
0
36
0 0 33 0
1
(init . mapc)
36
0 0 92 0
8
5
40
1
8
4
19
1
0
3
0
12
34
-3
18
36
0 0 67 0
1
(init . error)
36
0 0 43 0
1
(extras0 . format)
3
0
4
0 0 13 0
8
8
19
1
0
3
0
39
9
8
10
19
1
1
3
0
39
29
18
12
34
-3
4
0 0 50 0
3
0
12
34
-3
17
3
3
0
37
22
1
10
20
0
0
1
(calls . simple-call/cc)
36
0 0 14 0
12
40
1
14
4
2
62
1
37
22
1
10
20
0
0
1
(calls . push-handler)
36
0 0 115 0
12
40
2
62
1
18
36
0 0 89 0
11
19
2
0
36
0 0 77 0
1
(init . apply)
1
(streams1 . open)
36
0 0 43 0
1
(extras0 . format)
3
0
4
0 0 12 0
8
12
19
1
0
3
0
39
9
8
14
19
3
1
3
0
39
29
18
12
34
-3
8
8
19
3
2
3
0
39
12
34
-3
10
33
1
1
(calls . pop-handler)
62
0
18
15
3
37
9
19
0
0
15
4
3
0
16
9
13
3
33
1
22
3
11
20
0
0
1
(others . getenv)
8
4
62
1
9
32
0 0 11 0
9
31
0 0 6 0
11
15
2
10
16
20
0
2
18
4
0 0 8 0
10
16
20
0
1
18
9
19
0
2
42
32
0 0 16 0
4
0 0 9 0
3
0
39
15
5
37
1
(strings . string-length)
10
19
0
2
62
1
10
10
20
0
1
17
2
1
(gens . reverse)
36
0 0 54 0
1
(init . mapcar)
36
0 0 49 0
8
6
40
1
36
0 0 26 0
3
0
4
0 0 8 0
4
0 0 8 0
3
0
8
11
31
0 0 43 0
3
0
12
34
-3
14
6
2
16
9
13
3
33
1
1
(strings . substring)
10
19
0
2
12
26
8
4
27
14
6
4
62
3
37
36
0 0 24 0
1
(init . =)
8
6
8
4
19
0
1
11
33
2
32
0 0 34 0
11
1
(arith . -)
8
5
4
0 0 10 0
3
0
39
62
-2
39
11
14
6
2
39
37
36
0 0 40 0
1
(ccc . equal)
1
(strings . string-ref)
8
4
19
0
2
8
8
62
2
8
4
19
0
0
11
33
2
32
0 0 81 0
1
(arith . +)
8
4
4
0 0 10 0
3
0
62
-3
1
(arith . +)
8
5
4
0 0 10 0
3
0
62
-3
8
4
1
(arith . -)
8
7
4
0 0 10 0
3
0
39
62
-2
39
8
4
39
12
14
8
4
31
0 0 174 1
1
(arith . +)
8
4
4
0 0 10 0
3
0
62
-3
12
12
12
14
8
4
31
0 0 205 1